Zadaniem projektowym jest przygotowanie wizualizacji utworzonej z wykorzystaniem pakietu ggplot2, poprawiającej wizualizację dostępną w prasie, telewizji lub internecie, opublikowaną w ciągu ostatnich 2 tygodni.

Wizualizacja, którą poprawiam, została umieszczona w wydaniu “Wiadomości TVP” z dnia 26.10.2022r (minuta 17:13). Odcinek



Poniżej przedstawiam kod i wizualizację poprawionego wykresu:

df <- data.frame(x = c("Przed cyklem podwyżek", "Obecnie", "Przy dodatniej realnej stopie procentowej"),
                 y = c(1345, 2660, 5040))

df %>%
  mutate(x = fct_inorder(x)) %>% 
  ggplot(aes(x = x, y = y)) +
  geom_col(fill = "navyblue") +
  labs(
    title = "Miesięczna rata kredytu hipotecznego",
    subtitle = "Kwota kredytu: 300 000 zł, okres spłaty: 25 lat, źródło: finanse.uokik.gov.pl",
    x = "",
    y = "Koszt raty w złotych"
  ) +
  geom_text(
    aes(label = paste(y, "zł")),
    position = position_dodge(0.9),
    vjust = -0.5,
    size = 6
  ) +
  scale_y_continuous(limits = c(0,6000), expand = c(0,0))

Uważam, że przedstawiony przeze mnie wykres jest lepszy od oryginalnego, ponieważ:
- napisy na wykresie nie są elementami słupków (w oryginalnym wykresie proporcje zgadzają się tylko wtedy, gdy patrzymy na jasnoniebieski kolor kolumny, a nie na całą kolumnę),
- oryginalny wykres jest dosyć dziwną mieszanką wykresu 2D i 3D co może zaburzać poprawny odbiór, ja przedstawiam wykres 2D,
- uważam, że brak pionowej osi układu współrzędnych na oryginalnym wykresie może utrudniać odczytanie proporcji pomiędzy wysokościami kolumn

Uważam ponadto, że przedstawiony wykres ma znikomą wartość merytoryczną, ponieważ podpisy kolumn są zbyt niejasne: czym jest okres przed cyklem podwyżek?; podejrzewam, że pierwsze dwie kolumny są przedstawieniem faktów, a trzecia kolumna przedstawia szacunek; dla jakiej dodatniej wartości realnej stopy procentowej został sporządzony szacunek w trzeciej kolumnie?
Niestety nie mam wystarczającej wiedzy, żeby odpowiedzieć na te pytania, więc pozostawiam podpisy kolumn niezmienione.